BBS Toolkit/BBS Toolkit.iso/doors_2/sread104.zip/SREAD.QES

Text File | 1992-08-26 | 2KB | 85 lines

!
! SREAD Version 1.04 Sample Script File
! (C)opyright 1992 by D²Software
!

^LINESON
^LVL|1|9|$BAD_LEVEL

$MAIN
   ;
   ;@X0B1: @X0ESelection for accessing our adult section
   ;@X0B2: @X0CExit back to the system
   ;
   ^MUL|$ADULT|$EXIT
   $BOUNCE
   ;
   ^CLS
   ^JPP|$MAIN

$EXIT
   ^END

$ADULT
   ;
   ;@X0FThis information is used to gain access to our adult section.
   ;
   ^JMP|$QRETURN|@FIRST@, are you 18 years of age or older?
   ^GOSUB|$PERSONAL
   ^GOSUB|$ADDRESS
   ^JPP|$HAPPY

$HAPPY
   ;
   ^WRITEOFF
   ^JMP|$QRETURN|@FIRST@, are you happy with your answers?
   ^JPP|$QADJUST

$QADJUST
   !
   ! This routine is used if you want to reset the file pointer without
   ! worrying about the details.
   !
   ;@X0CAnswer file updated.
   ^ADJUST
   ^WRITEON
   ^JPP|$BOUNCE

$QRETURN
   !
   ! This routine is used to "force" a return from a subroutine!  This
   ! will update the file pointer.
   !
   ;
   ;@X0CAnswer file was not updated.
   ^ABORT
   ^WRITEON
   ^JPP|$BOUNCE

$PERSONAL
   ;
   ;@X0B@FIRST@, we need to get your personal information.  This information is
   ;@X0Bto cover our butts, and will remain totally confidential.  Failure to
   ;@X0Bprovide this information will prevent you from having access to this
   ;@X0Bsection.
   ;
   ^RETURN

$ADDRESS
   \$$______________________
   @X0EPlease enter your first name only:
   @X0EPlease enter your last name only:
   ;
   %We need to know your street address.  You may include up to 5 lines.
   %A blank line will end the data entry.
   ^ASK|5
   ^RETURN

$BAD_LEVEL
   ;Sorry @FIRST@, you can't do this script.
   ;
   ^PAUSE
   ^END